home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / Installer SDK 1.2.3 / Installer 4.0.8 / Installer 4.0.8 Examples / • Some Useful Utilities / Set Dir to Active < prev    next >
Encoding:
Text File  |  1993-10-28  |  210 b   |  10 lines  |  [TEXT/MPS ]
  1. # DirActive        Andrew Shebanow        12/4/88
  2. #
  3. # This simplistic little script gets the name of the active window,
  4. # and sets the directory to its folder.
  5.  
  6. Set Exit 0
  7. If "{Active}" =~ /(≈)®1:≈/
  8.     Directory "{®1}:"
  9. End
  10.